home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / GSDRAW.for < prev    next >
Text File  |  1991-04-13  |  622b  |  26 lines
  1.         SUBROUTINE GSDRAW(X,Y)
  2.         IMPLICIT NONE
  3.         REAL*4 X,Y,X1,Y1
  4. C
  5. C
  6.         INCLUDE DIGLIB$KOM:GCVPOS.PRM
  7.         INCLUDE DIGLIB$KOM:GCCPOS.PRM
  8.         INTEGER*2 GSIVIS,IVIS1
  9. C
  10. C       TRANSFORM VIRT. COOR. TO SCREEN COORD.
  11. C
  12. D       WRITE(9,90)XAPOS,YAPOS,IVIS
  13. D90    FORMAT('OLD POSITION ',3F10.3)
  14.         XVPOS = X
  15.         YVPOS = Y
  16.         CALL GSRST(XVPOS,YVPOS,X1,Y1)
  17.         IVIS1 = GSIVIS(X1,Y1)
  18.         CALL GSDRW2(XAPOS,YAPOS,IVIS,X1,Y1,IVIS1)
  19.         XAPOS = X1
  20.         YAPOS = Y1
  21.         IVIS = IVIS1
  22. D       WRITE(9,91)XAPOS,YAPOS,IVIS
  23. D91    FORMAT('NEW POSITION ',3F10.3)
  24.         RETURN
  25.         END
  26.